<?php		
  require_once $_SERVER['DOCUMENT_ROOT'] . '/proyecto/clases/autoload.inc.php';		
  require_once ($_SERVER['DOCUMENT_ROOT'] .'/proyecto/modulos/informes/config/lang/eng.php');		
  require_once ($_SERVER['DOCUMENT_ROOT'] . '/proyecto/modulos/informes/tcpdf.php');		
  if (Zen::IniciarSesion())		
  {		
     $estado = stripslashes(htmlspecialchars(trim($_GET['estado'])));		
     $fecha1 = stripslashes(htmlspecialchars(trim($_GET['fecha1'])));
     $fecha2 = stripslashes(htmlspecialchars(trim($_GET['fecha2'])));
     $convenio = stripslashes(htmlspecialchars(trim($_GET['convenio'])));			
     $rs = Zen::Consulta("
     SELECT  COB.COB_ID AS COBRANZA_ID,
	UPPER(EXOT.EX_CODIGO) AS CODIGO_EXAMEN,
	UPPER(EXA.EX_NOMBRE) AS NOMBRE_EXAMEN,
	UPPER(DOC.DOC_NUMERO) AS NUMERO_DOCUMENTO,
	EXOT.EXOT_VALOR_EXAMEN_CONV AS VALOR_EXAMEN,
	EXOT.EXOT_VALOR_AFECTO AS VALOR_AFECTO,
	EXOT.EXOT_VALOR_IVA AS VALOR_IVA, 
	EXOT.EXOT_VALOR_NETO AS VALOR_NETO,
	UPPER(COB.CON_RUT) AS RUT_CONVENIO,
	UPPER(CON.CON_NOMBRE) AS NOMBRE_CONVENIO,
	CASE 	WHEN UPPER(COB.COB_ESTADO) = 'ENV' THEN 'ENVIADA' 
		WHEN UPPER(COB.COB_ESTADO) = 'PAG' THEN 'PAGADA'
		WHEN UPPER(COB.COB_ESTADO) = 'NUL' THEN 'ANULADA'
	END AS ESTADO,
	COB.COB_FECHA_ING AS FECHA_COBRANZA
	
FROM	COBRANZAS AS COB 
	JOIN EXAMENES_OT AS EXOT ON EXOT.COB_ID = COB.COB_ID
	JOIN DOCUMENTOS AS DOC ON DOC.DOC_ID = EXOT.DOC_ID
	JOIN EXAMENES AS EXA ON EXA.EX_CODIGO = EXOT.EX_CODIGO
	JOIN CONVENIOS AS CON ON CON.CON_RUT=COB.CON_RUT

WHERE 	COB.COB_FECHA_ING  >= '$fecha1' 
	AND COB.COB_FECHA_ING  <='$fecha2'
	AND COB.COB_ESTADO = '$estado'
	AND COB.CON_RUT = '$convenio'

ORDER BY COB.COB_ID, DOC.DOC_NUMERO
");		
/**		
 * Creates an example PDF TEST document using TCPDF		
 * @package com.tecnick.tcpdf		
 * @abstract TCPDF - Example: Custom Header and Footer		
 * @author Nicola Asuni		
 * @copyright 2004-2009 Nicola Asuni - Tecnick.com S.r.l (www.tecnick.com) Via Della Pace, 11 - 09044 - Quartucciu (CA) - ITALY - www.tecnick.com - info@tecnick.com		
 * @link http://tcpdf.org		
 * @license http://www.gnu.org/copyleft/lesser.html LGPL		
 * @since 2008-03-04		
 */
 //$estado=strtoupper($estado);		
if($estado=='env') $estado='ENVIADA';
else if($estado=='pag') $estado='PAGADA';
else if($estado=='nul') $estado='ANULADA';
else $estado='';
class MYPDF extends TCPDF {
	public function Header() {
	    $fecha=date("d-m-Y H:i:s");
		$image_file = K_PATH_IMAGES.'logo.png';
		$this->Image($image_file, 10, 10, 15, '', 'PNG', '', 'T', false, 0, '', false, false, 0, false, false, false);
		$this->SetFont('times', 'B', 8);
        $this->SetXY(25,11);
        $this->Cell( 0, 0, 'Centro de Imagenología S.A.', 0, false, 'L', 0, '', 0, false, 'M', 'M');
        $this->SetXY(25,15);
        $this->Cell( 0, 0, 'Administración y Finanzas', 0, false, 'L', 0, '', 0, false, 'M', 'M');
        $this->SetXY(25,9.5);
        $this->Cell( 0, 0, $fecha, 0, false, 'R', 0, '', 0, false, 'M', 'M');
        $this->SetXY(25,14);
        $this->Cell( 0, 0, $_SESSION['usuario'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
        $this->ln(4.5);
        $this->Cell(190, 0, 'Página '.$this->getAliasNumPage().' de '.$this->getAliasNbPages(), 0, false, 'R', 0, '', 0, false, 'T', 'M');
	}
	public function Footer() {
	}
}
$pdf = new MYPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Nicola Asuni');
$pdf->SetTitle('TCPDF Example 003');
$pdf->SetSubject('TCPDF Tutorial');
$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE, PDF_HEADER_STRING);
$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
$pdf->setLanguageArray($l);
$pdf->SetFont('times', 'BN', 12);
$pdf->AddPage();
$txt = <<<EOD
Cobranzas
EOD;
$pdf->SetFont('times', 'B', 14);
$pdf->Write($h=0, $txt, $link='', $fill=0, $align='C', $ln=true, $stretch=0, $firstline=false, $firstblock=false, $maxh=0);
$pdf->SetFont('times', 'U', 10);
$pdf->ln(10);
$pdf->SetFont('times', 'B', 10);
$pdf->Cell( 24, 0, 'Convenio:', 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 33, 0, $convenio, 0, false, 'L', 0, '', 0, false, 'M', 'M');
$pdf->SetFont('times', '', 10);
foreach ($rs as $k => $record){		
$pdf->Cell( 33, 0, $record['nombre_convenio'], 0, false, 'L', 0, '', 0, false, 'M', 'M');
break;
}
$pdf->SetFont('times', 'B', 10);
$pdf->Cell( 12, 0, 'Fecha:', 0, false, 'L', 0, '', 0, false, 'M', 'M');
$pdf->SetFont('times', '', 10);
$pdf->Cell( 50, 0, $fecha1." - ".$fecha2, 0, false, 'L', 0, '', 0, false, 'M', 'M');
$pdf->SetFont('times', 'B', 10);
$pdf->Cell( 13, 0, 'Estado:', 0, false, 'L', 0, '', 0, false, 'M', 'M');
$pdf->SetFont('times', '', 10);
$pdf->Cell( 40, 0, $estado, 0, false, 'L', 0, '', 0, false, 'M', 'M');
$pdf->ln(13);
$html = <<<EOF
<hr width="635" />
<br/><center>
<table>
    <tr>
        <td width="80" align="center"><b>Id Cobranza</b></td>
        <td width="110" align="center"><b>Código Examen</b></td>
        <td width="120" align="center"><b>Número Documento</b></td>
        <td width="80" align="center"><b>Valor Examen</b></td>
        <td width="80" align="center"><b>Valor Afecto</b></td>
        <td width="80" align="center"><b>Valor IVA</b></td>
        <td width="80" align="center"><b>Valor Neto</b></td>
    </tr>
</table></center>
<hr width="635" />
EOF;
$pdf->writeHTML($html, true, false, false, false, '');
$pdf->SetFont('times', '', 9);
$pdf->ln(5);
$cont1=0;
$cont2=0;
$cont3=0;
$cont4=0;
foreach ($rs as $k => $record){	
$pdf->Cell( 23, 0, $record['cobranza_id'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 30, 0, $record['codigo_examen'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 34, 0, $record['numero_documento'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 24, 0, $record['valor_examen'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 22, 0, $record['valor_afecto'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 22, 0, $record['valor_iva'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 22, 0, $record['valor_neto'], 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->ln(5);
$cont1+=$record['valor_examen'];
$cont2+=$record['valor_afecto'];
$cont3+=$record['valor_iva'];
$cont4+=$record['valor_neto'];
}
$html = <<<EOF
</br>
<hr width="635" />
EOF;
$pdf->writeHTML($html, true, false, false, false, '');
$pdf->Cell( 87, 0, '', 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 24, 0, $cont1, 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 22, 0, $cont2, 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 22, 0, $cont3, 0, false, 'R', 0, '', 0, false, 'M', 'M');
$pdf->Cell( 22, 0, $cont4, 0, false, 'R', 0, '', 0, false, 'M', 'M');
ob_end_clean();
$pdf->Output('r31.pdf', 'D');
  }else
  {
     Zen::LogoutModulo();
  }
?>